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: FACILITY: SET Command 

; ABSTRACT: 

i This module im ponents the DCL commands SET CARD_READER, SET 
MAGTAPE, and SET PRINTER. 

ENVIRONMENT : 

: VAX/VMS operating system, user mode 

! AUTHOR: Gerry Smith 23-Feb-1983 
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Table of contents 


FORWARD ROUTINE 
set$card_reader : NOVALUE, 
setSmagtape : NOVALUE, 
set$printer : NOVALUE; 


q 
External routines 


MEUM “SO OODNOULS UN 


EXTERNAL ROUTINE 
LibScvt_dtb, ' Convert ASCII to binary 
cli$get_value, ! Get value from CLI 
cliSpresent; ! See if qualifier is present 
! 
: Declare some shared messages 
P SSHR_MSGDEF (SET,119, LOCAL, 
e (valerr, error) 
Cinvquaval, error)); 


o) 
Declare literals defined elsewhere 


EXTERNAL LITERAL 
set$_writeerr, 


Error modifying device 


a ee ee ee eee ee ee et ee ed ed ed od od od od od dd 


BSR ee ees 
CONOUEWN “SO OONOULSWNO”0 


SOOOOOOSOOOOOooooooooooooooOoOOOOOOOOO OOOO 
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a i a a ee ee ae ee a ae ee ee ed ed ad dd 


set$_devseti, 
set$_devset2, 


cli$_abkeyw; 


characteristic set 


EOF written on tape 

Wrong device type 

Device not mounted foreign 
Qualifier absent 

Qualifier explicitly negated 
Ambiguous keyword 
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vides oor 1oke $3565 hire sReise seus B92.1 al 
.c9At ROUTINE set$card_reader : NOVALUE = 


1+¢ 
i Functional description 
This is the routine for the SET CARD_READER command. t is called 


from the SET command processor, and Sets the characteristics of 
a card reader. 


1 

i] 

' 

‘ 

' Inputs 

: None 
i Outputs 

: None 
i] 


Status return 

General purpose descriptor 

! Flags longword 

$GE CHN descripto 

16 cen ll information block 
ch 

1/0 chaaun block 


stat 
dese 1 > SBBLOCKEds s_blnJ 
flags : SBBLOCKE i jigs (0), 
info ~fesc : 
info. block : Veronese 

anne H WORD 
fab 3 rc eel 


ee ee ee ee ee ee ed ad nd nd ed od od dd 


BSOLEAR ALS SS VEAL LOCO VER OSBORN IO Doo MO 


‘ 
Collect the name of the card reader. 
Sinit _dyndesc (desc ! Make the descriptor dynamic 
cli$get_ vatae(ZAserb ‘DEVICE’, 
desc); 
t 
Determine what characteristics to set, and whether or not to log them. 
flags set$v =038 = cli$present(ZASCID ' 1O6, di 
flags set$v. = cli$present(ZASCID ° 029") 
+e ad v_ 3 SS  decomniaectreins "026" t 
1F RO tt vaste 


ak a at tt a = 9 = — 4 Ss —) Ss > Ss 4 SS SS SS 


APWNHOOSLS AF WV SSS LEAR MD OOO TOAP UH SOBNSUR UNOS UR AR LMO OOD 


AND Nor’. tm rte By 26) 


SOOOOSOOSOSOOSOSOOSOSSOSOSOOOSOOOOooooooooooooooooooooOOOOOOOOOOoOO 


THEN RETUR 
t 
; Assign a channel to the device. 
P ir NOT (status = SASSIGN(DEVNAM = desc, _ 
CHAN = channel)) 
10 THEN 
11 BEGIN 
i pe ttats ters writeerr, 1, desc, .status); 
1 RETUR 
14 END; 
13 
H Determine if it is indeed a card reader. 


a4 
35 
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info_desc = 12; ! Set the descripto 
Intorderctid = into block; i for SCETCHN 
IF NOT (status = SGETCHN(SCDBUF = info_desc i Issue the SGETCHN, asking for 


AN = .channel)S ! pecendet? characteristics (in | 
t's spoole 
! If a problem, signal it. 


THEN ! case 
BEGIN 
SIGNAL(set$_writeerr, 1, desc, .status); 
RETURN; 
END; 
If .info_block(dib$b_devclass] NEQU dc$_card ! If not a card reader, 
THEN ! signal that it's not. 
BEGIN 
SIGNAL (set$_writeerr, 1, desc, 
END cli$_ivdevtype); 


] 
: Set the specified characteristic. 


IF _ .flagsCset$v_026) 
THEN LOCK info_blockEdibs| _devchar » cr$v_tmode] = cr$k_t026 
ELSE SBBLOCKLinfo_block(dib$l_devchar], cr$v_tmode] = cr$k_t029; 
status = SQIOW(CHAN = .channel, 

FUNC = JO$_SETMODE, 

10SB = iosb, 

Pi = info_block(dib$b_devclass], 

P2 = 8); 


If .status 
THEN status = .iosb(0): 
ay -status 


BEGIN 
SiS Cone er theeer 1, desc, .status); 


ELSE IF xf logslsetsv_log) 

THEN SIGNAL(set$_devset!, 2, desc, (IF s{iegslgersy.026] 
THEN ZASCID ‘026° 
ELSE ZASCID '029')); 


TITLE SETDEVS 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT,NOEXE,2 

00 00 45 43 49 “alt 0 B-AAB: See! LO 
F 4 6 P.AAD: -ASCII \L06\<o> 
01060008, 16 P.AAC: .LONG 17694723 


eADDRESS P.AAD 
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00 39 32 1C P.AAF: .ASCII \029\<0> 
0 508 6 P.AAE: “LONG. 17690783 3 
00 36 8 P.AAH aYisi te *o36\co> 
01 06 P.AAG: .LONG 17694723 
0 ;ADDRESS P.AAH 
00 36 P.AAJ: ASCII \926\< > 
4 00 P.AAL: .LONG 17694723 
0 ¢ “ADDRESS P.AAJ 
00 59, 3£00 Bes BAAR; “hone. e3\s 3 
80000000" docs -”X* “ADDRESS PAL 
-EXTRN LIBSCVT_DTB, CLISGET_VALUE 
-EXTRN CLISPRESENT, SET$_WRITEERR 
‘EXTRN SETS$_DEVSETI, SETS_DEVSET2 
-EXTRN SETS"EOFSET, CLI$_IVDEVTYPE 
-EXTRN CLIS[DEVNOTFOR tis ABSENT 
-EXTRN CLIS"NEGATED, CLI$_ABKEYW 
SEXTRN SYSSASSIGN, SYSSGETCHN 
SEXTRN SYS$Q10W 
<PSECT SCODE$,NOWRT,2 
57 000000006 00° oF spose Hoven Pieekelee npr’ Sve RZ-RS.R4.RS.RG.AT 
36 000000006 Br i $00 MOVL &#SETS URI TERR R6 
55 000000006 00 9€ 00010 MOVAB CLISPRESE SENT, R5 
7. eer ee o5 Doole SORE rio, OMAep 
5 D4 809 1 CLRL FLA ‘ 
20 AE 0200090 aF 00 900 3 nOvL #344 44 1936. DESC 
3 A oF 900 E PUSHAB 
54 DD 00031 PUSHL 
000000006 00 02 FB 90 3 CALLS #2, CLISGET_VALUE 
65 as Ot 4 8 CALS. #i, CLISPRESENT 
53 01 00 0 a 9940 INSV RO, #0. #1, FLAGS 
18 AG OF 004 PUSHAB P.AAE 
65 1 FB 0048 CALLS #i, CLISPRESENT 
53 01 01 0 FO 0004 INSV RO. #1, #1, FLAGS 
5 * Ot 4 wie cher ee #i, ISPRESENT 
53 01 0 F 3 INSV RO. Sat FLAGS 
93 1 € 58 BBS #1. fches.” 
1 2 i 3 Bs #2. Frags: 1$ 
7E 7¢ 1$ CLRQ = =( SP) 
98 AE 3 BUSHAB CHANNEL 
000000006 i CALLS a. SYSSASSIGN 
18 AE : 5 BOVE starus. DESC 
1¢ AE o¢ AE 4 £0 MOVAB. IN nF BLOCR. INFO_DESC+4 
18 AE 9F 0008 PUSHAB INFO"DESC 
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SC 


IBSSIGNAL 
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INFO_BLOCK 


0, #4, INFO_BLOCK 
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CHANNEL, -(SP) 
#12, SYSS$Q10W 


9$ 
EL AG 10$ 
#2, FLAGS, 7$ 
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P.AAK, RO 
RO 
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#4, LIBSSIGNAL 
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1 GLOBAL ROUTINE set$magtape : NOVALUE = 
BEGIN 


te 
Functional description 


This is the routine for the SET MAGTAPE command. It is called 
from the SET command processor, and performs various actions on 


; 
i 
. a@ magtape. 
i Inputs 
None 
i Outputs 
! None 
i eS ee 
LOCAL 
status, Status return 
density. Magtape density 
function, Q10 function code : 
count, Number of files/records to skip 


desc : SBBLOCKCdsc$c_s_blin], 
value_desc : sc$c_s_bin], 


] General purpose descriptor 
¥ sep, ocktd 
flags : SBBLOCKL4 JRITIAL (0), 
ECTORC2) 


Value descriptor 
Flags longword 


nfo.desc : V SGETCHN descriptor 
infoblock : SBBLOCKL{2), SGETCHN information block 
channel : RD 1/0 channel 

iosb : VECTORC4,wORD); 1/0 status block 


BIND mt_char = info_block(dib$l_devdepend] : SBBLOCK(4); 
] 
Collect the name of the magtape. 


Sinit_dyndesc (desc); ! Make the descriptors dynamic 
Sinit_dyndesc (value desc); 
cli$get_value(ZASCID pevices. 

esc); 


‘ 
Assign a channel to the device. 


if NOT (status = SASSIGN(DEVNAM = desc, 
CHAN = channel)) 
BEGIN 
SIGNAL(set$_writeerr, 1, desc, .status); 
RETURN; 
Determine if it is indeed a magtape. 
fo_desc(0) = 12; 
fo" £93 = info 


: 
i 
: 
i 


in ' Set ye the descriptor 

nfo_desc nfo_block; ' for S$GETCHN 

IF NOT (status = $GETCHN(SCDBUF = info_desc ' Issue the S$GETCHN, asking for | 
CHAN = .channel)5 i secondary characteristics (in | 
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! case it’s spooled) 
! If a problem, signal it. 


aa 
ss 


BEGIN 
SIGNAL(set$_writeerr, 1, desc, .status); 
RETURN; 


IF .info_block(dib$b_devclass] NEQU dc$_tape ! If not a tape, 
THEN ! signal that it’s not. 


BEGIN 

SIGNAL (set$_writeerr, 1, desc, 
cli$_ivdevtype); 

RETURN; 


ND; 
IF NOT .info_blockCdev$v_mnt) 
THEN 


OOCSOCCCCCOSooOooo 


! If not mounted, 
! signal an error 
BEGIN 

2 | os tm llama 1, desc, ss$_devnotmount); 


END; 
IF NOT .info_blockCdev$v_for] ! If not mounted foreign, 
THEN ! signal an error 


BEGIN 
SIGNAL (set$_writeerr, 1, desc, cli$_devnotfor); 
RETURN; 


yy Sheena 
FUN" OOONOAUE WN "O00 IOUS WN 


5 ; 
$ 33 5 
: $e Determine whether to log the actions taken. 
20 34 flags(set$v_log] = cli$present(ZASCID LOG"); 
25 34 } 
334 $e : Density 
35 33 if _(flagsCset$v_dens] = cli$get_value(ZASCID ‘DENSITY’, value_desc)) 
328 35 BEGIN 
58 $2 IF NOT (status = LibScvt_dtb(.value_desc(dsc$w_length] 
59 55 -value_desc dsc$a-pointerd, 
$29 density)) 
1 35 THEN 
¢ 358 BEGIN 
359 SIGNAL (set$_invquaval, 2, value_desc, ZASCID ‘DENSITY'); 
360 RETURN; 
5 1 END; 
306 IF .density EQL 1600 


BEGIN 
flagsCset$v_1600) = 1; 
mt _char(mt$v_density] = mt$k_pe_1600; 


EN 
LSE IF .density EQL 800 
HEN 
epee 
agsCset$y_ 800) = 1; 
mt char mt$v_density) = mt$k_nrzi_800; 


Rae Se 
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— 4 
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3 78 74 ; ELSE IF .density EQL 6250 

: $80 fog THEN can 

; 381 § 4 flagsCs t$y 6250] =1; 

3 eg fe ? mt _char(mt$v_density] = mt$k_gcr_6250; 
3 Be 80 3 

>; 385 1 4 BEGIN 

3 4] § 4 SIGNAL (set$_invquaval, 2, desc, ZASCID ‘DENSITY'); 
; 4 RETURN; 

; 388 84 H 

; 389 5 END; 

: 38 ae 

; 3¢ hh 4 } /CNOJLOGSOFT is only good for TU78's 

: 39% 0390 IF (status = cli$present(ZASCID "LOGSOFT')) NEQ cli$_absent 
> 395 0391 THEN 

; 396 B326 GIN 

: 397 039 IF .status NEQ cli$_negated 

3 ae 0394 THEN 

; 399 3332 4 BEGIN 

; 400 0 38 4 flagsCset$v_logsoft) = 1; 

3 401 0397 4 mt_charCmt$v_logsoft) = 1; 

; $06 0398 4 

; 40 0399 3 

: 404 0400 4 BEGIN 

; 405 0401 4 flagsCset$v_nologsoft) = 1; 

; 406 Be08 4 mt_char(mt$v_logsoft] = 0; 

: 407 040 END; 

; 408 0404 END; 

: 409 0405 

: 410 0406 IF .flagsCset$v_dens] 

3 6411 0407 OR .flags Sethy.vogeetty 

3 216 0408 OR .flagslset$v_nologsoft) 

3; «641 0409 THEN 

> 414 0410 BEGIN 

: 415 P 0411 status = SQIOW(CHAN = .channel 

> 416 p O4i¢ FUNC = I0$_SETMODE, 

: 417 P 041 1088 = iosb, 

: 418 P 0414 P1 = info_block(dib$b_devclass], 
3; 419 oF P2 = 8); 

; 420 16 

; 421 Bele IF status 

+ § 418 THEN status = .iosb(0); 

3; 4 0419 IF NOT .status 

; 424 0 THEN SIGNAL(set$_writeerr, 1, desc, .status) 
: 425 421 ELSE IF .flagslset$v_log] 

3; 4 $ 4 § THEN 

3 4 4 BEGIN 

3; 428 424 & IF _"Logetsetsy dens] 

: 429 425 4 THEN SI NAL (sotS_devset2. :. dese ZASCID "DENSITY', 
: 430 § (IF <flagsCset$v. 16004 

3 $e! THEN 3A ip *1600' 

3; 4 ¢ 4 3 ELSE IF .flagsCset$v_800) 
3 $e? THEN ZASCID . 

3; (4 4350 4 ELSE ZASCID °6250°)); 


Ot feg-3e V4.0-742 
- SRCIJSETDEVS.832;1 


eR ee se 


D 14 
64-608 1eeSep-19b6 49:09:05 — LekiutLesneds ac 


> 435 431 END; 

3 46 END; 

i 8 " 

; 439 435 : The next set of modifications to perform are positional changes, rather 

3 rr | r : than changes to the characteristics. 

; 44 04 S IF cliSpresent(ZASCID ‘END_OF_FILE") 

> 44 4 THEN 

> 444 440 BEGIN 

3; 44 41 INCR index FROM 1 TO 2 DO 

: 44 te8 4 BEGIN 

3 44 P 0445 4 status = SQIOW(CHAN = .channel, 

; 448 P 0444 4 FUNC = io$_writemark, 

: 449 pee? 4 10S8 = ios6); 

; 450 168 4 IF .status 

3; 451 0447 4 THEN status = .iosb(0); 

; +26 0448 4 IF NOT .status 

; 45 0449 4 THEN EXITLOOP; 

: 454 0450 : 

3; 455 bee3 T .status 

; 456 26 THEN SIGNAL(set$_writeerr, 1, desc, .status) 

3; 457 045 ELSE IF .flagslCset$v_log] 

; 458 0454 THEN SIGNAL(set$_eofset, 1, desc); 

; 459 0455 3 

: 460 8628 

> 461 045 IF _cli$present(ZASCID ‘SKIP.END_OF_TAPE') 

; re 0458 THEN 

; 46 0459 BEGIN 

: 464 0460 dO 

; 465 0461 4 BEGIN 

: 466 P Bees & status = SQIOW(CHAN = .channel 

> 467 P0463 4 FUNC = jo$_skipfile, 

; 468 P 0464 4 10SB = ios 

3 469 465 4 Pi == 32767); 

; 470 66 4 IF .status 

3: 471 67 4 THEN status = .iosb(0]; 

3; 47 68 4 IF NOT .status 

3: 47 69 4 THEN EXITLOOP; 

: 474 70 4 END 

3 6475 71 UNTIL .S$BBLOCKCiosb(2], mt$v_bot); 

3; 476 Le IF NOT .status 

3; 477 047 THEN SIGNAL (set$_writeerr, 1, desc, .status) 

3; 478 74 ELSE IF .flags getsv_ log) 

: 479 475 THEN SIGNAL (Set$_devset?, 2, desc, ZASCID ‘END_OF_TAPE'); 

; 480 6 END; 

3 481 7 

3: 4 § 7 fynct ion = 0; 

; 4 7 IF cli$get_value(ZASCID "SKIP.FILES', value_desc) 

3; 4 0 THEN | 

3; 485 1 BEGIN 

3 § § function = io$_skipfile; 

3: 4 tloastset$y files] = 1; 

3 4 4 4 IF NOT (status = LibScvt_dtb(.value_descCdsc$w_length) 

3: 489 5 4 - value desc dsc$a_pointerd, 

: 490 4 count)J 

3 (491 3 THEN | 
| 
| 
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49 4 BEGIN 
rt SIGNAL (sets. invquaval, 2, value_desc, ZASCID ‘SKIP'); 
495 4 H 
4 4 END 
9 4 ELSE IF cli$get_value(ZASCID ‘SKIP.BLOCKS', value_desc) 
98 THEN 
BEGIN 
function = io$ nae 
fla agstsetsy reco 
IF NOT (status = LibScvt_dtb(.value_descldsc$w_length] 


svalue-descldsc$a “pointerd, 
count) 


BEGIN 
SIGNAL (set$_invquaval, 2, value_desc, %ASCID ‘SKIP"); 
RETURN 


END 
334 IF cli$get_value(ZASCID "SKIP.RECORDS', value_desc) 


Pa 
SRLEARANLSSSLSARANLESS 


BRAHAM AMHAAB & FMAM AAAAAIIPIIPIIIND & H&E EWE BF EWI BB PAK BF PWIA BS 


SPUSUSUSUSISISUSVSISIOSISISION £™ = = 


AAAS ee Dd ed ed ad ed ed COOCOCCO 


BEGIN 
SIGNAL(set$_writeerr, 1, desc, .status); 
RETURN; 


eee 
_ 


If the skip function was neget ive, then the tape must be re-positioned 
forward, over the end mark. 


IF .count LSS 0 
THEN 


Fk et tt 
wns 
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EGIN 

5 10 function = io$ Se, oa ree 
5 11 sy ogsysetey record 
5 \¢ T (status = LibScvt _dtb(. value sdesctascte- Length), 
3 1 eval ue “desc(dsc$a_ “pointerd, 

14 count)) 
5 15 
5 16 BEGIN 
5 1 SIGNAL (set$_invquaval, 2, value_desc, %ASCID ‘SKIP"); 
5 18 RETURN 
5 19 END 
H 31 END; 
2 § IF .function NEQ 0 

THEN 
5 4 BEGIN 
5 p 5 Status = SQIOW(CHAN = .channel, 
P $ FUNC = - function, 
P 10SB = iosb, 

8 Pi = .count): 
5 3 IF .statu 

0 THEN stotes = .iosb(0); 

; ay -Status 

5 
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status = SQIOW(CHAN = .channel, 
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IF .status 

THEN status = .iosb(0]; 
IF NOT .status 

THEN 


BEGIN 
SIGNAL(set$_writeerr, 1, desc, .status); 
RETURN; 
END; 
1 
If /LOG, then tell what was done. 


F .flagsCset$v 


I log] 

THEN SI i CeorS_dovees2. 3, desc, 
IF , ‘tags set$v_files] 
THEN ZASCID ‘SKIP_FILES' 
ELSE ZASCID ‘SKIP_RECORDS'), 


value_desc); 
END; 
t 
Lastly, check for /REWIND or /UNLOAD. 
if cli$present(ZASCID REWIND’) 
THEN 


channel, 
osb, 
io$_rewind); 
IF .status 


THEN status = .iosb(0]; 
i‘ a -Status 


BEGIN 
status = S$QI10W(CHAN 
10S8 


BEGIN 
pie Conse per iteare, 1, desc, .status); 


E IF af logslsotsu_ log) 
N SIGNAL(set$_devset!, 2, desc, ZASCID "REWIND'); 


ELS 

THE 
IF cli$present(ZASCID "UNLOAD') 
THEN 


BEGIN 
Status = SQIOW(CHAN = .channel, 
10SB = iosb, 
FUNC = io$_rewindoff); 
tatus 
status = .iosb[0); 
atus 
GNAL(set$_writeerr, 1, desc, .status) 


EN SI 
SE IF .flags et$v_logd 
EN SIGNAL (set$_devset!, 2, desc, ZASCID ‘UNLOAD'); 
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END; 
RETURN; 
END; 
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Dd 
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ASCII \DEVICE\<0><0> 
LONG 
“ADDRESS P.AAN 
“ASCII \L06\<03 
LONG 17694723 
“ADDRESS P.AAP 
“ASCII \DENSETY\<O> 
ONG 17694727 
“ADDRESS P.AAR 
“ASCII \DENSITY\<O> 
“LONG 17694727 
“ADDRESS P.AAT 
“ASCII \DENSITY\<O> 
ONG 17694727 
-ADDRESS P.AAV 
ASCII \LOGSOFI\<0> 
“LONG 17694727 
“ADDRESS P.AAX 
“ASCII \DENSITY\<0> 
SLONG 17694727 
-ADDRESS P.AAZ 
“ASCII \1600\ 

No 17694724 
“ASChI \B00\<0> 
LONG 13090953 
“ADDRESS P ABD 
“ASCII \ 23 \ 

“LONG 17694724 

witht SEND OF FILE\<0> 
“LONG. 176 Bn 98T 
“ADDRESS P.ABH 
“ASCII \SKIP.END_OF_TAPE\ 
.LONG 17694736 
“ADDRESS P. 


ABJ 
ASCII Mobs 7st TAPE\<0> 


ADD RESS 
ASCH \SkIP, EJLES\<O><o> 


ASCII \SK OCKS\<0> 
“LONG vsEIF at 
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34 AE 020E00 


+ 
2C AE 020€00 MOVL  § #34471936, VALUE_DESC 
VALUE_DESC +4 


eens @ 


000000006 33 33 


R 
#2, CLISGET_VALUE 
CLRO 20s = (§P) 

PUSHAB CHANNEL 

PUSHAB DESC 

CALLS 4&4, SYSSASSIGN 
MOVL RO STATUS 

BLBC _—«s STATUS, 
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4 AE 0c 00 MOVL #12, INFO_DESC : 0313 
33 AE 18 AE SE § MOVAB  INFO_BLOCR, INFO_DESC+4 : 6 14 
24 AE 9F 0007 PUSHAB INFO-DESC + 0316 
7E 7C 0007 CLRQ 0 =( SPT : 
7E ps 7A CLR -(SP) : 
54 10 AE 3C 0007 MOVZWL CHANNEL, R4 : 
4 0D PUSHL R4 : 
000000006 Q 5 F CALLS #5, SYSS$GETCHN : 
9 D MOV RO, STATUS : 
0 C 1$ BLBS § STATUS, 2$ : 
0388 F BRW 44$ : 
02 1¢ Ar | 2$ CHP JNFO_BLOCK#4, #2 + 0323 
000000006 BF pp 909 PUSHL peepee : 0326 
06 1A AE 3 £0 bab 38 BBS  #3._ INFO BLOCK+2, 4$ ; 0330 
7E 7C «BF 9A 000A MOVZBL #124, -(SP) : 033 
10 18 AE EB OOOAB 4S ores —«INFO.BLOCK*3, 68 $ 0336 
000000006 BF DD OOOAF PUSHL #CLIS_DEVNOTFOR : 0339 
a AE OF 0585 5$: PUSHAB DESC F 
DD 4 PUSHL # : 
A bp OBA PUSHL R10 ; 
03 : 1 0008C BRW 46$ F 
0c AS 9F OGOBF 6$ PUSHAB P.AAO + 0346 
68 01 FB 00¢ CALLS #1, CLISPRESENT : 
01 00 50 FO 000C INSV RO, #0, #1, FLAG F 
2c AE 9F 000CB PUSHAB VALUE _DESC + 0351 
1¢ AS 9F OOOCE PUSHAB P : 
69 02 FB 00001 CALLS #2, CLISGET_VALUE ; 
01 01 50 FO 00004 INSYV RO. #1, #1, FLAGS ; 
64 50 . OODA BLBC —_ RO,._- 11 F 
04 AE 9F 000DD PUSHAB DENSIT + 0354 
3s AE pp O0E SHL VALUE_ : 0355 
7E 4 AF C O00E MOVZWL VALUE-DESC, -(SP) + 0354 
68 Q FB OO0E ALLS #3, LYBSCVf_pTB : 
52 DO OOOEA MOVL ST : 
06 5 00ED BLBS STATUS, 7$ : 
2c AS OOF OOF PUSHAB P.AAS : 0359 
0228 31 OOF BRW 33$ : 
00000640 8F 04 AE D1 OF6 7$: cMPL DENSITY, #1600 > 0362 
08 A 4 1 BISB2 #4, FLAGS + 0365 
21 AE 05 0 6 f | a INsv #4, #0, #5, MT_CHAR+1 ; 5 
00000320 8F 04 AE p 106 8$: cn DENSITY, #800 ; 
08 iA é 88 00116 B1SB2 a. FLAGS > 0371 
21. AE 05 0 ; f 1A INSy #3. #0, #5, MT_CHAR+1 > 037 
0000186A =F 04 AE D4 1 9$: cnPL DENSITY, #6250 > 0374 
ive Py 
08 A 88 001 BISB2 #16, FLAGS 3 0377 
21. AE 05 0 FO 001 INSV 43 #0, #5, MT_CHAR+1 : 0378 
11 001 BRB 11§ : 0374 
3 A i 138 10$:  PUSHAB P.AAU : 0382 
AE 9F 001 PUSHAB DESC : 
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O1E0 31 001 W 33$ : 
4C Fo 3} lif 11$:  PUSHAB P.AAW : 0390 
1 FB 144 CALLS #1, CLISPRESENT 3 
9 D0 00147 MOVL STATUS : 
000000006 &F D4 14h cHPL qAtus, #CLIS_ABSENT : 
000000006 8F 5 p is cHPL STATUS, #CLIS_NEGATED + 0393 
8 AE 8 1 Bi S82 #32, FLAGS : 396 
1 AE 40 «BF 1 B1SB #64, MT_CHAR+1 + 039 
A 1 BRB 13$ : 0393 
8 AE 4 F gs 167 12$: B1$B2 #64, FLAGS : 
1 AE 4 F 8A 0016C BICB2 #64. MT_CHAR+1 + 0402 
A AE 1 €0 00171 13$:  8BS #1, FLAGS, 14$ : 06 
5 0 AE 5 £0 00176 BBS #5. FLAGS. 14$ + 040 
69 8 AE 6 gi 1 BBC #6. FLAGS. 20$ + 040 
—E 7C 00180 148: cLRQ -(§p) + 041 
OB bo bolas PUSHL. a8 : 
30 AE oF 01 PUSHAB INFO _BLOCK+4 ; 
7E 7C 0018 CLRQ = =( SPY : 
30 AF 9F 0018B PUSHAB 1088 : 
DD O18 PUSHL #35 ; 
4 0D 001 PUSHL 4 : 
7E D4 0192 CLRL. -=(SP) : 
67 o¢ FB OOT CALLS #12, SYS$QI0W ; 
52 g D 90197 MOVL RO, STATUS 3 
07 g 59 019A BLBC STATUS, 15$ + 0417 
52 10 A ¢ 9190 MOVZWL 10SB, STATUS + 0418 
OE 52 E8 OO1A1 BLBS STATUS, 16$ + 0419 
52 DD O01A4 15$:  PUSHL : 0420 
38 «AE «OOF O01A6 PUSHAB ; 
g1 DD O1A9 PUSHL ; 
A DD 001AB PUSHL R10 : 
66 04 FB 01AD CALLS #4, LIBSSIGNAL F 
, 3 0180 BRB : 
33 08 AE €9 001B2 16$:  BLBC FLAGS, 208 F 0424 
E 08 AE o1 E1 00186 BBC #i, FLAGS, 20$ > 0424 
08 A Fl 0188 BBC #2. FLAGS, 17$ : 0426 
5 68 =A E 1C MOVAB P.ABA, RO + 0427 
10 11 001C4 BRB 19$ ; 
06 08 A 0 gl 106 17$: BBC #3, FLAGS, 18$ : 0438 
5 7% =A é 1¢B MOVAB P.ABC, RO : 0429 
03 } 1CF BRB 19 : 
50 0080 E 00101 188 MOVAB P.ABE, RO + 0430 
9 D 106 19$ PUSHL RO : 428 
C AS 9F 001D PUSHAB P.AAY 3: 04 
C AF F 0010B PUSHAB Desc : 
DD 1F PUSHL # F 
000000006 8F DD OO1E PUSHL #SETS DEVSET2 : 
3 FB 1E6 CALLS #5, LIBSSIGNAL : 
0094 9F OO1E9 20$:  PUSHAB P.ABG > 0438 
68 1 FB 1E CALLS #i, CL ISPRESENT : 
4 6 £9 OO1F BLBC 3=E_—s«aRO. ; 
5 BO 1F MOV #1. INDEX > 0441 
E 7C OO1FS 218 CLRO 20. = §p) + 0445 
7E 7C OO1F CLRQ = = (SP) : 
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ze ze 1FA CLRQ = =( SP) : 
E 7C OO1FC CLRQ = = SP) : 
30 AE 9F OOTF PUSHAB 1088 ; 
1C DD PUSHL # : 
34 DD PUSHL 4 : 
E D4 ssp) : 
7 F CALLS #12, SYS$QIOW : 
2 D A MO RO STATY : 
: BLBC STATUS, 22$ + 044 
10 A 1 MOVZWL 10SB, STATUS + 044 
52 €E 14 BLBC STATUS, 22$ + 0448 
3 F 17 AOBLEQ #2, INDEX, 21$ + 0441 
E E 1B BLBS TATUS, 23$ + 0451 
BD O21E 228 PUSHL + 0452 
38 AE OF 0 PUSHAB ; 
gi DD PUSHL # : 
A Dd 00 PUSHL R10 : 
04 FB 0 CALLS #4, LIBSSIGNAL : 
12 11 A BRB : 
08 AE &9 022C 23$:  BLBC FLAGS, 24$ t 0453 
4 AE SF 00 PUSHAB DESC + 0454 
1 0D 00 PUSHL @# : 
000000006 8F DD 00235 PUSHL aseTS EOF SET : 
6 3 FB 00 CALLS #3, LIBSSIGNAL F 
ooac C5 OF 00 24$ PUSHAB P.ABI + 0457 
1 FB 0024 CALLS #i, GLISPRESENT : 
0 £9 99 4 BLBC = RO. «298 F 
7E 7C 00248 258 CLRO 20. = (§P) + 0465 
7E 7¢ 00 4A CLRQ = =(SP) ; 
7E D4 0024C CLRL 0s = F 
7FFF 6BF 630 0024 MOVZWL #32767, -(SP) : 
E 7C 0025 CLRO : 
30 AE 9F 0025 PUSHAB 1088 : 
é DD 00258 PUSHL # : 
4 DD 0025A PUSHL 4 : 
7E 04 0025¢ CLRL. = (SP) : 
7 Q FB 0025E CALLS #12, SYS$QI0W : 
2 DO 00261 MOVL RO, STAT : 
5 4 0264 BLBC STATUS, 26$ : 0466 
10 A ¢ 9 67 MOVZ2WL 10SB, STATUS 3 046 
52 € 6B BLBC STATUS, 26$ + 0468 
3 16 AE €9 00 $ BLBC 105846, 25$ : 0471 
3 £8 BLBS STATUS. o7$ ; O47¢ 
BD 75 26% PUSHL STATUS + 047 
38 «AE «OOF 0007 PUSHAB DESC : 
Q DD 0027A PUSHL #1 : 
& DD 7¢ PUSHL R10 : 
13 7 BEB 28$ 3 
08 AE €9 27$:  BLBC FLAGS, 29$ i 047% 
00¢ cS OF PUSHAB P.ABK : 0475 
AE F PUSHAB pes : 
DD PUSHL # ; 
000000006 8F DD PUSHL #SETS$_DEVSET1 ; 
é 4 FB 28s: CALLS #4, LTB SIGNAL : 
3 p $: CLRL FUNCTION ; 0478 
2c «AE O9F 0009 PUSHAB VALUE_DESC 3 047 
0004 cS 9F 00298 PUSHAB P.ABM : 
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te SL ISGET_VALUE 
#37, FUNCTION 
C 


#126, FLAGS 

ounf 

VALUE _DESC+4 

VALUE DESC -(SP) 

#3, LIBSCVf_oTB 
STATUS 

STATUS, 34$ 


32$ 

VALUE _DESC 

#2, GL ISGET_VALUE 
RO, 31$ 

#38, FUNCTION 
#1, FLAGS+1 

COUNT 

VALUE _DESC+4 
VALUE-DESC, -(SP) 
#3, LYBSCVT_oTB 
RO, STATUS 
STATUS, 34$ 


32$ 
VALUE _DESC 


Pp 
#2, 1 hl 
R 4$ 


#38, FUNCTION 
“i. FLAGS+1 


OUN 
VALUE _DESC+4 
VALUE-DESC, =(SP) 
#3, LIBSCVT_DTB 
RO, STATUS 
STATUS, 34$ 
P.ABW 

VALUE _DESC 


#7803690 


I 
FUNCTION 
R4 


5gP) 
resin 
STATUS, itt 
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ATU 
S, 36$ 
FLAGS, 39$ 
VALUE. DESC 
FLAGS 

3 Say, RO 
38s” 

BAACA, RO 

p sc 

sSETS DEVSET2 
#5, LIBSSIGNAL 


“i, CL ISPRESENT 
RO, 43$ 


=(SP) 
#i2, SYS$Q10W 
RO STATUS 
STATUS, 40S 
10SB, $TATUS 
STATUS, 41$ 
STATUS 

R1 

42 

FLAGS, 43$ 
P.ACE 


’ 
#SETS_DEVSET1 
#4, LTBSSIGNAL 


N 14 
SETDEV 16-Sep-1984 00:47:57 AX-11 Blis 4 .0- =742 Page 23 
tbat 12-805-1984 09:4: iS et ie ta Cae Lee oe 8 
0178 CS 9F OO3F2 43$:  PUSHAB P.ACG : 0590 

68 1 re F CALLS #i, CLISPRESENT : 

C 0 F BLEC = RO. «47S : 
E ?C OO3FC CLRQ 0s = (§P) : 0595 

7E 7C 003F CLRQ = =( SP) : 

7E 7C 004 CLRQ = =(SP) ; 

7E 7C 004 CLRQ ss =(SP) : 

30 AG 9F 004 PUSHAB 1088 : 

DD 00407 PUSHL #34 : 

4 DD 004 PUSHL = R& : 

E 04 004 CLRL 13”? F 

67 FB 0040 CALLS #1 oS ySsgtom ; 

Q DO 0041 MOVL RO TUS ; 

9 : 41 BLBC STAT Tos. ies : 0596 
é 10 A ¢ 416 MOVZWL 1088. STATUS : 059 
0 52 E8 0041A BLBS STATUS, 45$ : 0598 

5 bp 041D 44$:  PUSHL : 0599 

FC93 31 OO41F BRW : 
12 08 AE £9 0422 45$: BLBC FLAGS, 47$ + 0600 
0188 C5 SF 00426 PUSHAB P.ACI + 0601 

38 AE 9F 0042A PUSHAB p SC F 

02 OD 00420 PUSHL : 

000000006 8F DD 0042F PUSHL aSeTs DEVSET1 : 

6 04 FB 00435 46$: CALLS #4, LIBSSIGNAL F 
04 00438 47$: = RET + 0605 


3; Routine Size: 1081 bytes, Routine Base: S$CODE$ + 0118 
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1 GLOBAL ROUTINE set$printer : NOVALUE 
aesIn 


i Functional description 


from the SET command processor, 
a@ printer. 


LOCAL 


ge 
desc : 
flags : K if 
info_desc : VECTORE ? 
nfo_block : $B8BLOCKL{2), 


channel : WORD 
josb : VECTORL4,WORD); 


BIND lp_char = 
i] 
: Collect the name of the printer. 


it_dyndesc (desc); 
it_dyndesc(width_desc); 
{t_dyndesc (page desc); 
$get_value(ZASCID ence’. 
esc); 


& 
$ 
$ 
Cc 
4 


Assign a channel to the device. 
IF NOT (status = SASSIGN(DEVNAM = desc, 
CHAN 


This is the routine for the SET 


Sen 1984 90:47 4 AX-11 Blis see Phe 4 


16- 75 
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PRINTER command. It is called 
and sets the characteristics of 


tatus return 
WIDTH descriptor 
PAGE descriptor : 
eneral purpose descriptor 
Lone longword 

CHN descriptor 
GETCHN information block 
/ hanne 
/0 status block 


mr MMT 


info_block(dib$l_devdepend] : S$BBLOCK(3]; 


! Make the descriptors dynamic 


= channel)) 


L 
RETURN; 
Determine if it is indeed a printer 


info_descfo} = 12; 
info-descl1) = int 


nfo_block; 
IF NOT (status = SGETCHN(SCDBUF = info_des 
C = .channe 


HAN 
THEN 


(set$S_writeerr, 1, desc, .status); 


' Set the descriptor 

' for $GETCHN 

! Issue the $GETCHN, asking for 
} secon ary characteristics (in 


C 
L$ 
t's spooled) 


PAAAAAAAOCO 
oO 


>] 


o 
re] 
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SESSSSESSOS 


tal ad Sad 
SOOO 
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NN NN SSSI SY “J 
FUN OOO VO UEWwh— 
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BEGIN ! Ifa blem, signal it. 
SIGNAL (set$_writeerr, 1, desc, .status); : aig “4 
RETURN; 
END; 

IF _.info_block(dib$b_devclass] NEQU dc$_lp ! If not a printer, 

THEN ! signal that it's not. 


BEGIN 
SIGNAL(set$_writeerr, 1, desc, 
a: cli$_ivdevtype); 


1 
Determine what characteristics to set, and whether to log it. 
flagsCset$v_log] = cli$present(ZASCID 'LOG'); 


t 
Real characteristics 


if (status = cliSpresent(ZASCID 'FF')) NEQ cli$_absent 


IF .status NEQ cli$_negated 
ag flagsCset$v_ffJ = lp_charClp$v_mechform] = 1 


BEGIN 

flagsCset$v_noff] = 1; 

Lp charllp$v_mechform) = 0; 
A END; 


E 
cotetus = cli$present(ZASCID 'CR*)) NEQ cli$_absent 
BEGIN 
IF .status NEQ cli$_negated 
ines flagsCset$v_crJ = Lp_charClp$v_cr] = 1 
BEGIN 
fLegsCageSy_noce3 = 1; 


char(lp$v_cr] = 0; 
eK; nies 
END; 
es = cli$present(ZASCID ‘PASSALL')) NEQ cli$_absent 


GIN 
IF .status NEQ cli$_negated 
ag flagsCset$v_passJ = lp_charClp$v_passall) =1 


BEGIn 
flagsCset$v_nopass] = 1; 
Lp char(lp$v_passall) = 0; 
END; 

END; 

IF (status = cli$present(ZASCID "PRINTALL')) NEQ cli$_absent 
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THEN 


N 
IF .status NEQ cli$_negated 
ite LagsCset$v_print] = lp_charClp$v_printall) = 1 


BEGIN 
{ LogaCageSy_nope int) = 1; 
Lp char(lp$v_printall) = 0; 
END; 
END; 
eee = cliS$present(ZASCID ‘WRAP')) NEQ cli$_absent 


BEGIN 
IF .status NEQ cli$_negated 
ee flagsCset$v_wrap] = lp_charClp$v_wrap] = 1 


BEGIN 
[\agelogrey noure J =1; 


ip _char(lp$v_wrap) = 0; 
END: ieee 
END; 
ce = cli$present(ZASCID "UPPERCASE')) NEQ cli$_absent 
BEGIN 


IF .status EQL_ cli$_negated 
ig 34 flagsCset$v_lower] = Lp_charClp$v_lower] = 1 


BEGIN 
flagsCset$v_upper] = 1; 
Lp char(lp$v_lower] = 6; 
END; 

END; 


eae = cli$present(ZASCID "LOWERCASE’)) NEQ cli$_absent 


tatus NEQ cli$_negated 
flagsCset$v_lowerJ = lp_charClp$v_lower] = 1 
pasts ts J=1 
agsCset$v_upper] = 1; 
p, chart psi lover} = 6; 


IF .s 

THEN 

ELSE 
6 
f 
t 


iV Cotetus = cli$present(ZASCID "FALLBACK')) NEQ cli$_absent 


BEGIN 
IF .status NEQ cli$ negated 
ay flagsCset$v_fallback) = Lp_charClp$v_fallback] = 1 


BEGIN 
flagsCset$v_nofallback] = 1; 
ip_char(lp$v_fallback] = 0; 
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roe 
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4 <otetus = cliSpresent(ZASCID ‘TRUNCATE’)) NEQ cli$_absent 


N 
IF _ .status NEQ cli$_negated 
THEN flagsCset$v_truncate] = Lp_char(lp$v_truncate] = 1 


BEGIN 
{LogaCogtSy notruncate) e v3 
Lp char(lp$v_truncate] = 0; 
END; 

END; 


en = cliSpresent(ZASCID 'TAB’)) NEQ cli$_absent 


GIN 
IF .status NEQ cli$_negated 
ne flagsCset$v_tab] = lp_char(lp$v_tab] = 1 


BEGIN 
flagsCset$v_notab]) = 1; 
Lp charllp$v_tabJ = 0; 
ENB; 

END; 


em = cliSpresent(ZASCID "SIXELS')) NEQ cli$_absent 


BEGIN 
IF .status NEQ cl is negated 
ag flagsCset$v_sixels)] = lp_charClp$v_sixels] = 1 


BEGIN 
flagsCset$v_nosixels] = 1; 
Lp char(lp$v_sixels] = 0; 
END; 

END; 


a = cli$present(ZASCID ‘BITMAPPED')) NEQ cli$_absent 


IN 
IF .status NEQ cli$ negated 
ee flagsCset$v_bitmapped) = lp_char(lp$v_bitmapped] = 1 


BEGIN 
flagsCset$v_nobitmapped] = 1; 
Lp charllp$v_bitmapped] = 0; 
END; 

END; 
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' 
Printer type 
if (fl tafecbteck ip11) = cL iSpresent (ASC D "LP11")) 


atest eat ti §4Ps scLitbcaeen (ZASCID 'LA180")) 


toy s1f700 ght sant 
A osblsck mE | eg tr pees LA11")) 


nto, (FlagsC aned 2? i$ resnt (KASCID "UNKNOWN" ) ) 
nfo Msetetis 3 7h |. "0 


i Page Length 
if (flagslset$v_page] = cli$get_value(ZASCID PAGE’, page_desc)) 


BEGIN 

mt engrh: 

IF NOT Lib$cvt _dtb(.page_ “desc Ldsche: as 
iP pag oe descldsc$a_ “pointers, 


BEGIN 
SIGNAL (set$_invquaval, 2, page_desc, ZASCID ‘PAGE'); 
RETURN 
IF .length GTR 255 
OR a tenet th LSS 0 
THEN 
BEGIN 
SIGNAL (set$_valerr); 
RETURN; 


END; 
info_block(11, 0, 8, 0] = .length; 
END; 


Page width 
iF (flagsCset$v_width] = cli$get_value(ZASCID ‘WIDTH’, width_desc)) 


BEGIN 

LOCAL width 

IF NOT Libsevt _dtb(. wigeh ~geschdsc$u_ Length) 
ou yideh. desc(dsc$a_pointerJ, 

THEN 


BEGIN 
SIGNAL (set$_invquaval, 2, width_desc, ZASCID PAGE"); 
RETURN 


IF .width GTR 65535 
OR .width LSS 
THEN 


15 
SETDEVS 18-5 =1984 00:47:57  VAX=11 Bliss-32 v4.0-742 ° 9 
Miteeat 12-80 8=18Re 93:65:35 | Heed Otkessze Misses? ase 23 


3 91 4 BEGIN 

: 4 33 4 RETURN; valerr); 

; 94 END; 

; 900 95 info_block(dib$Sw_devbufsiz] = .width; 

; 901 38 END; 

3 an6 9 

; 90 38 ! 

: obe Set the specified characteristic. 

; P 0901 senha = SO10U(CHAN = :channel 

; 309 P 2 = 10s. $ SETMODE, 

: 306 p sf O88 : 101ebLock£dibSb_devetoss) 

M4 = 

$10 ape a Sk pfo. oc evclass], 

: af 0307 IF .status 

: a 208 THEW status ~. -iosb0); 

; 318 sit THEN SIGNAL (set$_writeerr, 1, desc, .status) 

: 91 91 ' 

; 918 0918 ! If /LOG, then say what was changed. 

: 339 oie éLse IF .flagsCset$v_log] 

; 3 O3g THEN, . ——e 

; 9 ¢ oats ere . stegstsetsy ff) 

: 924 931 ire EN SI 1 (segS_de devset!, 2, desc, Z%ASCID ‘FF') 

> 925 920 ELSE IF .f Lags set$v_noff] 

: $ 3 1 THEN SIGNAL(set$_devSet1, 2, desc, ZASCID "NOFF"); 

: 928 44 g IF .flagsCset 

: 929 4 THEN SI ttets or aatt, . desc, ZASCID 'CR') 

3; 9 44 5 ELSE IF .flagsCset$v_nocr] 

: 1 , $ THEN SIGNAL (set$_devSet1, 5 desc, ZASCID ‘NOCR'); 

; 338 \) 8 IF - flopelsetSvp pass] 

3; 9 THEN SI i (secs. devseti, desc, %ASCID "PASSALL*) 

; 935 930 ELSE IF .flagsCset$v snopass 

3 3% 9 ; THEN SIGNAL (set$_devSet desc, ZASCID ‘NOPASSALL"); 

: 9 \) IF .flagsCset$v_print] 

3 339 THEN SIONAL CS sexs-d 36 Covert. g_Sete. ZASCID ‘PRINTALL') 

: 940 5 ELSE IF .f a $v shop ini 

§ oe) THEN SIGNAL (set ~douled 2, desc, ZASCID ‘NOPRINTALL'); 

; 308 9 IF .flagsCset$v_wrap] 

> 944 THEN SI (sets. devectt, desc, ZASCID "WRAP') 

: 949 9 ELSE IF .flagslset$v sfourags , 

; 308 Be THEN SIGNAL(set$_devSet1 desc, ZASCID "NOWRAP'); 

; a8 3 IF .fla sCse 4 lower) 

3; 94 4 THEN SI tse etS_devset!, 2, desc, ZASCID "LOWERCASE') 

3 eae 5 ELSE IF .flagsCset$v_up er | 

3 325 § THEN SIGNAL (set devSetl, . desc, ZASCID ‘UPPERCASE'); | 

é 
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a eta ene or asc ara 
H 15 | 
16-Sep-1984 00:47:57 AX-11 Bliss-32 V4.0-742 P 30 | 
12-860-1 382 90:69:05 CLIUTL. SROISETDEVS.B3251 ron (6) 
donc. ZASCID "FALLBACK') 
back 
» desc, ZASCID "NOFALLBACK'); 


flagsCset$v_fallback) 
Ghat (sets vseti, 
Legs etSv_nofal 


(set$_devseti, 


a 
I 

F 

I 

ogstsetsy truncate) 
I Wat (seES_6 vsetl, 2, desc, ZASCID ‘TRUNCATE') 
F agsLsetSv_notruncate 

IGNAL (set$_devset!, 2, desc, ZASCID ‘NOTRUNCATE'); 
ags(s 


—— <"T—-e- —¢fTl—te-0 


bj 
i (segs _devset! » desc, ZASCID ‘TAB') 
t & b 


I P 
F agsLsetS$v_nota 

IGNAL (set$_devset1, 2, desc, ZASCID ‘NOTAB'); 
ags(set$v_sixels] 

I i (segs devset! gesc. ZASCID 'SIXELS") 
F .flagslset$v_nosix 

IGNAL (set$_devsetl, 
ags(s 
I 

F 

1 

a 


6 
(s 
;; desc, ZASCiD ‘NOSIXELS'); 


i (segS_devset | 2. dese. ZASCID "BITMAPPED') 


ags(set$v_nobi tmapped 


GNAL (set$_devset!, 2, desc, ZASCID "NOBITMAPPED'); 
s 


I 

F 

} - desc, ZASCID *LA180") 
Joh CSegd_ Sovect! 2, desc, ZASCID ‘LA11") 

F .flags(se j 

IGNAL (set$_devset1, 2, desc, ZASCID "UNKNOWN'); 
a 

I 

a 

| 


- flagsCset$v_page] 
EN QNAL (setS devset2, 3, desc, ZASCID 'PAGE’, page_desc); 


.f og bee: width) 
EN L(set$_devset1, 2, desc, ZASCID ‘WIDTH’, width_desc); 


i— = SMH Ne HIT =I 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


AST MLE 
eADDRESS P.ACL 


eASCII \LOG\<0> 
tang. \bedaros 
ADDRESS F.ACN 
eASCII = \ER4<0><0> 


eLONG 17694722 
»ADDRESS P.ACP 


00 00 45 43 49 56 45 64 1€4 

a0 7 1H0009" BED 
a8 , QOtes 
sins, 


00 00 


J 
i (segS dover 05" desc, ZASCID "LP11") 
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00 00 52 4 P.ACR: .ASCII \CR\<0><0> : 
4 68 16 P.ACQ: .LONG 158 $6935 : 
0 P 1 “Aeoees P.ACR : 
00 4¢ 4€ 41 53 53 18 P.ACT: .ASCI yoAsS4 j,\<0> : 
4 90 P.ACS: .LONG 176947 ; 
0 P ADDRESS P.ACT : 
4C 4C 41 54 GE 49 P.ACV: .ASCII SOR UNTALLN : 
4 68 P.ACU: .LONG 1769472 $ 
0 “ ADDRESS P.ACV : 
50 41 P.ACX: .ASCII \WRAP\ 3 
4 8 P.ACW: .LONG 17694724 : 
0 0 4 eADDRESS P.ACX é 
00 00 00 45 53 41 43 52 45 50 44 P.ACZ: .ASCII wwe! : 
4 508 O P.ACY: .LONG 17694729 : 
0 Q° 4 eADDRESS P.ACZ 3 
00 00 00 45 53 41 43 52 45 57 4F r+ 8 P.ADB: .ASCII Wer esa : 
8A 9F O08 re} P.ADA: .LONG 17694729 : 
0000000'° eADDRESS P.ADB 3 
48 43 41 42 4C 4C 41 $8 of P.ADD: .ASCII Nayar) K\ : 
918 000. 0274 P.ADC: .LONG 1769472 F 
0 4 78 eADDRESS P.ADD 3 
45 54 41 43 4E 55 4 7C P.ADF: .ASCII Sb ATE\ $ 
4 50008 He P.ADE: .LONG 17694728 $ 
00 , eADDRESS P.ADF é 
00 42 41 54 Q028C P.ADH: .ASCII \TAB\<0> : 
0108 00 3 00290 P.ADG: .LONG 176 A723 3 
n't ya's 94 ADDRESS P.ADH 3 
00 00 53 4C 45 58 4 98 P.ADJ: .ASCII \ ine enc é 
01 0F 0008 O2A0 P.ADI: .LONG 176 $ 
023009 * 002A4 ADDRESS P 3 
00 00 00 44 45 50 50 41 40 54 49 & O2A8 P.ADL: “ASCII XB TMAPPED\ <O><O><O> 3 
ot 000 0284 P.ADK: .LONG F 
0000000" 00288 eADDRESS P.A ; 
31.°«O«31 4C 8 Be P.ADN eASCII \LPIIN F 
9196 0008 CO P.ADM: .LONG 17694724 3 
00 * 002C4 eADDRESS P.ADN F 
00 00 00 30 38 31 41 4 0 ce P.ADP: .ASCII V8.1 99) <0><0><0> 3 
10 0 P.ADO: .LONG 17694 3 
00 . 04 ADDRESS P.ADP é 
31 4 D8 P.ADR eASCII \LAITIN 3 
3 of P.ADQ: .LONG 17694724 $ 
0 E eADDRESS P.ADR 3 
00 4E 57 4F 4E 4E E4 P.ADT ASCII \YBENOUN\<O> 3 
8 EC P.ADS eLONG 17694 3 
F eADDRESS P.ADT 3 
45 & F4 P.ADV: .ASCII 1oAgeS z 
8 FB P.ADU: .LONG 17694724 $ 
fF eADDRESS P.ADV 3 
45 & P.ADX: .ASCII 1548 \ : 
P.ADW: .LONG 17694724 3 
ADDRESS P.ADX 3 
00 00 00 48 54 ; C P.ADZ: .ASCII Aug TH <0><0><0> F 
14 P.ADY: .LONG 17694725 F 
45 if P.AEB Ascii \PAGrS : 
36 P.AEA: .LONG 1PeSE) 26 3 
4 ADDRESS P.AEB 3 
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ge TSROINTER. Save R2,R3,R4,R5,R6,R7,RB,RI,- 


_NEGATED, R8 
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DEVSETI, R6 

RESENT, RS 
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# 6471936, DESC 
#34471936 ,WIDTH_DESC 
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SETOENS 18-Sep-19 r 1 eet 14 age Ot ies -3¢ V4.0-742 Page 34 


-Sep-19 5 CLIUTL.SRCJSETDEVS.B32;1 (6) 
000000006 99 4 F 79 CALLS #4, SYSSASSIGN : 
D Q MOVL RO STATUS : 
iE E BLBC STATUS, ; 
34 AE C 004 MOVL #12, INFO_DESC + 0658 
8 AE 18 AE 9E A MOVAB INFO_BLOCR, INFO_DESC+4 + 0659 
24 AE OOF F PUSHAB INFO-DESC + 0661 
7E 7C 32 CLRQ 0s =( SP : 
7E ps CLRL = = (SP) : 
7E 10 AE C 00096 MOVZWL CHANNEL, =(S ; 
000000006 Q F 9A CALLS #5, SYS$GETCHN : 
D Al MOVL RO STATUS : 
0 Ad 18 BLBS satus, $ : 
O2FF A BRW 9$ : 
43 BF 1C Ae 1 OOOAA 2$: CMPB INFO_BLOCK+4, #67 + 0668 
10 13 OOOAF BEQL $ F 
000000996 8F pd 0B1 PUSHL M#CLIS_IVDEVTYPE + 0671 
30 AE 9F 00087 PUSHAB DESC : 
gf DD OOOBA PUSHL #1 F 
A 0D 000BC PUSHL R10 : 
64 04 FB OO0BE CALLS #4, LIBSSIGNAL : 
OC Ad OF d0¢} 3$: PUSHAB P.ACM + 0678 
65 or FB 00 C4 CALLS #1, CLISPRESENT : 
OC AE 01 00 9 FO 000C7 INSV RO, #0, #1, FLAGS : 
18 A3 9F 000CD PUSHAB P.ACO + 0683 
+} 01 FB 90000 CALLS #1, CLISPRESENT F 
2g 0 00 000d MOVL RO, STATUS : 
5 32 D1 00006 CMPL StAtUs, R7 F 
17 13 00009 BEQL 4 ; 
58 52 D1 00008 CMPL = STATUS, RB + 0686 
OA 13 0000 EQ. «ss4$ : 
20 AE 03 88 000E BISB a2. LP_CHAR : 0687 
OC AE 88 000E4 BISB2 #2. FLAGS ; 
08 11 000E8 BRB 5$ ; 
Oc AE 04 88 OOOEA 4$: BISB2 #4, FLAGS + 0690 
20 AE 08 A O00E BICB2 #2, LP_CHAR : 0691 
24 AS OF 000F2 S$: PUSHAB P.ACQ : 0695 
65 01 FB OOF CALLS #1, CLISPRESENT F 
5 50 DO O00F MOVL RO. STATU ; 
4 3¢ D1 OOOFB CMPL TATUS, R : 
17 13 O00F BEQL : 
58 52 D1 001 CMPL = STATUS, R8 : 0698 
OA 13 001 BEQL 3 
0 AE 1 1 BISB2 #1, LP_CHAR + 0699 
. @ 1 BISB2 #8. FLAGS : 
1 BRB 7 : 
3 OME 1 eh 195 8 BERR 5}o- CUaGS : 0708 
34 AS OOF 113 7$: PUSHAB P.ACS ~ : 070 
5 1 FB OO11A CALLS #1, CLISPRESENT : 
g DO 0011 MOVL RO. STATU : 
78 33 001 cat gurus. & 
58 ; 1 CMPL TATUS, RB + 0710 
A 1 BEQL : 
1 AE 1 12A BISB Hi LP_CHAR+1 : 0711 
C AE 9 1 5 BISB2 #32, FLAGS ; 
1 BRB 93 : 


m 15 
SETDEV 16-Sep-1984 00:47:57 AX-11 Bliss-32 V4.0-742 Page 35 
Nite 1er8e8=1 38s 99:65:3s  HeM UT Obdessze Mh 95 tS? * 2 
AE 40 8F 88 00134 8$: BISB2 #64, FLAGS 3 0714 
ot AE o} fA 139 B158s #1, LP_CHAR+1 : aE 
44 A3 9F 00130 98: PUSHAB P.ACU 3 0719 
5 j FB 14 CALLS #1, CLISPRESENT ; 
: DO 0014 MOVL RO, STATU : 
D4 14 CMPL TATUS, : 
18 13 0014 BEQL 1$ : 
58 52 Di 00148 CMPL TATUS, RB + 0722 
6 1 146 BEQL 0$ F 
20 AE 4 1 BI S62 #4, LP_CHAR + 0723 
OC AE 80 8F 4 BISB #128, FLAGS : 
OD AE . 8 00158 10$: 81582 #1, FLAGS+1 : 972 
20 AE 4 8A 0015F BICB2 #4, LP_C : 07 
50 A3 9F 00163 11$:  PUSHAB P.ACW : 0731 
65 1 FB 166 CALLS #1, CLISPRESENT : 
5 0 00 0016 VL RO, STATU : 
5 ; D1 0016C¢ CMPL _— STATUS, ; 
17 13 O16F BEQL 13 : 
58 52 D1 00171 CMPL = STATUS, RB + 0734 
OA 13 00174 BEQL 12$ : 
20 AE 10 88 00176 BISB2 #16, LP_CHAR + 0735 
OD AE ce 88 0017A BISB " FLAGS+1 ; 
08 11 OO017E BRB : 
OD AE 04 88 0180 128:  BISB2 #4, FLAGS+1 : 0738 
20 AE 19 A 001 BICB2 #16, LP_CHAR + 0739 
64 A3 9F 00188 13$:  PUSHAB P.ACY + 0743 
65 01 FB 00188 CALLS #i, CLISPRESENT : 
5 29 DO 0018E MOVL RO, STATU : 
5 52 D1 00191 CMPL = STATUS, R ; 
19 13 00194 BEQL Ss : 
58 52 D1 00196 CMPL = STATUS, R8 > 0746 
08 13 0199 BNEO F 
0 AE 80 8F 8 0198 BISB2 #128, LP_CHAR : 0747 
D AE 08 88 OO1A B1SB "8 FLAGS+1 ; 
09 11 00144 BRB 15$ : 
OD AE 10 88 001A6 14$:  BISB #6 FLAGS+1 : 0750 
20 AE 80 8F 8A O1AA BICB2 #126, LP_CH : 0751 
78 A3 9F OOIAF 15$:  PUSHAB P.AD : 0755 
65 i FB 0182 CALLS #i, CLISPRESENT F 
32 9 dO 0018 MOVL RO STATUS : 
19 °F +E Bear stArus. " : 
58 2 p 0018 CMPL TATUS, R8 : 0758 
B D01C BEQL : 
0 AE 80 8F D01C BI S82 #128, LP_CHAR : 0759 
D AE 8 pic? BIS #8, FLAGS+1 ; 
9p AE 10 88 D1 CD 16$: B1$B2 aig FLAGS*1 : 076 
0 AE 80 BF D010 BICB2 §«6 #128, LP_CHAR : 076 
008 3 9F 00106 17$: —- PUS AD : 076 
5 1 FB OO1DA CALLS #i, CLISPRESENT : 
é DO 001D MOVL RO. STATU ; 
RSet aS : 
58 2 1E CMPL TATUS, R8 : 0771 
bc iE BEQL tas ; 


N15 
SETDEV 16-Sep-1984 00:47:57 AX-11 Bliss-32 V4.0-742 
thet 12=300-1 383 99:65:05 Yet rute sre SETDEVS.832;1 
1 AE 1EA BISB2 #2, LP_CHAR+1 
8 AE th TEE B156¢ HF FLAGS+2 
OF AE 8 OO1F4 188: 81582 a6, FLAGS+2 
1 AE 02 8A 001F8 BICB2 #2, LP_CHAR+1 
0098 F OO1FC 198 PUSHAB P.ADE 
5 1 FB CALLS #1, CLISPRESENT 
; 9 D MOVL RO, STATU 
ime geet gts 
58 52 i CMPL TATUS, RB 
8 BEQL 20$ 
AY AE 40 f BI S82 #64, LP_CHAR 
E AE 0 88 188 32, FLAGS+2 
OE AE 40 8F 88 0021B 20$:  BISB2 #64, FLAGS+ 
20 AE 40 8F 8A 00 BICB2 #64, LP_CHAR 
00A4 C3 9F 00225 218 PUSHAB P.ADG 
65 gi FB 00229 CALLS #i, CLISPRESENT 
5 DO 0022C MOVL RO, STAT 
5 52 D1 O02eF CMPL TATUS, R7 
18 13 00232 BEQL 
58 52 Di 00 CMPL TATUS, RB 
0B 13 00237 BEQL 
20 AE 20 88 0239 BISB2 #32, LP_CHAR 
OE AE 80 8F 88 00 p BISB2 #126, FCAGS+2 
08 11 0024 BRB 
OF AE 01 88 00244 228: BISB2 #1, FLAGS+3 
20 AE e) 8A 00 48 BICB2 #32, LP_CHAR 
00B4 C3 9F 0024C 23$:  PUSHAB P.ADI 
65 gi FB 0 30 CALLS #1, CLISPRESENT 
5 0 DO 0025 MOVL 0; STATUS 
5 32 D1 00256 CMPL TATUS, R7 
17 13 00 39 BEQL 
5H 52 D1 00258 CMPL STATUS, R8 
OA 13 00 3E BEQL 4$ 
21. —sAE 04 8 026 BISB2 #4, LP_CHAR+1 
OF AE 08 8 00264 BISB2 #2. FLAGS+3 
08 11 0 68 BRB 2 
oF AE 04 88 0026A 24$:  BISB2 #4, FLAGS+3 
1 AE 04 BA 0 $ BICB2 #4. LP_CHAR+1 
00c8 C3 9F 00272 25$:  PUSHAB P.ADK 
65 1 FB 0027 CALLS #1, CLISPRESENT 
22 D 7 MOVL TATU 
7¢ CMPL TATUS, R 
17 13 O027F BEQL 7$ 
58 52 b 9 1 CMPL TATUS, R8 
A BEQL 
21 AE BISB2 #8, LP_CHAR+1 
F AE A B1SB #8. FLAGS+3 
OF AE 10 88 26$: BISB2 #16, FLAGS+3 
21. —AE 08 8A 00294 BICB2 #8, LP_CHAR+1 
00D4 F 8 278 PUSHAB 
5 1 ¢ C CALLS #i, CLISPRESENT 
OD AE 01 5 0 F F INSYV RO, #5, #1, FLAGS#1 
6 E AS BLBC ~=—_—«aRO.- 28S 
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SETDEV 18-56 =1984 00:47:57 AX-11 Bliss-32 V4.0-742 P 7 
Miteeht 12-8084 88e 93:05:35 | eaN rt Othe sze Mis °58S2, ace i 
1D AE 1 9 A8 MOVB #1, INFO_BLOCK+5 : 
a 9 AC BRB 31$ 7 : ja 
00E4 9F OOCAE 288 PUSHAB P.ADO + 0839 
5 ei. B CALLS #i, CLISPRESENT ; 
OD AE 01 : F B INSV RO. #6, #1, FLAGS#1 : 
: BB BLBC RO, 2 F 
1D =sOAE 90 Bg OVE 3, INFO_BLOCK+5 + 0840 
00FO 9F 002C4 298 PUSHAB P.ADQ + 0841. 
5 i F 0 C8 CALLS #1, CLISPRESENT ; | 
OD AE 01 07 20 F CB INsy ty ‘ #1, FLAGS+1 ; 
1D AE 54 6 D4 nove We, INFO_BLOCK+5 + 0842 
0100 9F O02DA 30$:  PUSHAB P.ADS + 0843 
65 oi re O2DE CALLS #i, CLISPRESENT F 
OE AE 01 00 0 FO 002E1 INSV RO. #0, #1, FLAGS#2 ; 
0 50 34 00 £7 BLBC ~=—Es«aRO,_ 318 : | 
1D AE 94 OOCEA CLRB  _—sINFO_BLOCK+5 7 0844) 
ode C8 OF CODED PUR phepOne Sages 
69 92 FB O2F4 CALLS #2, CLISGET_VALUE : 
OE AE 01 01 50 FO 002F7 INSV RO, #1, #1, FLAGS#+2 F 
2D 50 34 002FD BLBC ~=—_s«aRO,. 33 ; 
04 AE SF 00300 PUSHAB . LENGTH + 0853) 
cy a pp 0303 PUSHL PAGE_DESC+4 + 0854 
7E 3 AE -3C (00306 MOVZWL PAGE-DESC, -(SP) : 0853. 
6B 0 FB 0030A CALLS #3, bigscvT_ore 3 
” en 68 F 00310 cas Pp kou : 0858 
set b817 PUSHAB PAGE. DESC irned 
QOO00OFF 8F 04 AE D1 $0 19 32$: CPL ENGTK, #255 > 0862 | 
o PRE hon ones 
48 19 00326 BLSS 6$ F | 
ne ge OAE OF 00390 338:  PUSHAB WERTH BESE meeock et : 3893. 
0128 C3 9F 00 " - PUSHAB_«P.ADY™ F 
69 8 FB 00 CALLS #2, CLISGET_VALUE ; 
OE AE 01 02 FO 00337 INSV RO. #2, #1, FLAGS*#2 ; 
F 50 3 033p BLBC ~=._—«&RO,._ 38S F 
08 AE SF 00 40 PUSHAB WIDTH : 0879 
44 AE po 0 4 PUSHL WIDTH_DESC+4 : 0880 
7E 44 AF C 00346 MOVZWL WIDTH"DESC, -(SP) : 087 
68 : Fe 4A CALLS #3, LTBscvi_ove : 
11 9 4D BLES =—s_- RO : 
0134 (C3 OF 0 PUSHAB P.AEA + 0884 
SO Fe ABE sus, SURMAE ylPTH ese bard 
0077132A oF D> 00539 PUSHL #7803690 : 
OOOOFFFF  8F 08 AE D1 00361 358: CMPL ¥IDTH, #65535 > 0888 
05 14 00369 BGTR $ F 
08 AE 03 0 i Ist : DTH ; 0889 
007711EA 8F DD 8 5 36$:  PUSHL 37803370 > 0892 
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CHANNEL, =(SP) 


0 
#4, LIBSSIGNAL 
FLAGS, 42$ 


#1, FLAGS, 43$ 
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#2, FLAGS, 45$ 
P. AEE 

DESC 
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#4, LIBSSIGNAL 
#3, FLAGS, 46$ 
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P.AEI 
DESC 
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#4, LIBSSIGNAL 
#5. FLAGS, 49$ 
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FLAGS 

$ 
P.AEO 
5%$ 
FLAGS*+1, 54$ 


Pe Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Ge Se Ge Fe Ge Ge Fe Fe Se Se Se Se Se Se Se Se Ss Se Se Ve Be Bs Se Be Be Se Se Be Be Be Se Be Be Se Se Se Se Se Be Se 


vO4~000 


0D 


0D 


OD 


0D 


OE 


OE 


OE 


OE 


OF 


OF 


64 
AE 


AE 


64 


OE 


64 
AE 


AE 


0200 


0224 
0238 
30 
OE 


0244 


F 
of 


0264 


0274 
30 


FODDOMOOMO POODODMOOMOPOOOMOOMOorFrom 


POoOoodnroouo 
RIT NA OWNS AM WS OWE ORM WS OUIWW EF OPM WH OW FE Ooromw 


OOM — OM NOS OOM OM NOS OOM OM NOOO OOM—OMnNIo0oO 
Rw HI MOO NHN 3 THI TH IO OC VHT Moon 


D 16 
p=3en=1 
Sep-1 


ODYVINMNS 
o 
| 
an 


BeBe ROR 4 ttyl + 4 
oa 
o 
wn 


Sos 
~ 
=) 
= 


PPP PLETE 


:57 Ax-1 
:05 


1 
CLIUTL 


et 
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#4, LIBSSIGNAL 
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#4, LIBSSIGNAL 
#1, FLAGS+2, 81$ 
PAGE _DESC 
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PSECT SUMMARY 
Name Bytes 
SPLITS 1252 NOVEC,NOWRT, 
SCODES 2744 NOVEC, ‘NOWRT, 


Library Statistics 


File Total 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 


Symb 
Loaded 


Ax-11 OL leg ae v4.0-7 
CLIUTL.SRC SeTDEVs Bo3, 1 


~EXTRN LIBSSIGNAL 


Attributes 


RD ,NOEXE,NOSHR, LCL, REL, bale od Gog bef 
RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Ols ocoeeee- Pages Processing 
Percent Mapped Time 
60 0 581 00:01.0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS$:SETDEVS/OBJ=OBJ$:SETDEVS MSRC$:SETDEVS/UPDATE=(ENHS: SETDEVS) 


Ziae: 2744 code + 1252 data bytes 


un Time 00:46. 
oe phetn Tine: 02:37.8 
Lines/CPU Min: 1274 
Lexemes/CPU-Min: 21763 

ry Used: 423 peges 
Compilation Complete 
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PM 
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VAX/VMS V4.0 


DI U 
CO A 


Q 
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NF IDENT 
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